perm filename ENVX[M11,LCS] blob sn#409408 filedate 1979-01-09 generic text, type T, neo UTF8
INS 0 1; <  INSTRUMENT 1 
ENV  
;    
ENV P4 P5 B2 DP7 DP8 DP9 P10; 
OSC B2 FP3 B2 P6 ;  
OUT B2 B1;END; 
SEG 2 0 1 1 8 1 10 .5 25 .5 50 0 75 0 100; <F2  ENVELOPE    
GEN 0 2 4 .5 0 .3 0 .2 0 .1 7; < CLAR WAVE  F4    
SIN 1 1;  <F1  SINE WAVE 
SEG 5 1 1 1 50 ,-1 50.3, -1 100; <F5  SQUARE WAVE.
     
SRT←10000;
 
  < SCOR.DAT  --  RANDOM NUMBER=     0
 PLAY;   
 ENV     0.000    0.1     A   500.000    F2    F1   0.020 P2*2   0.070   0.000
;  < ENV    1
 ENV     0.1      0.1    A*2  500.000    F2    F1   0.020 P2*2   0.070,  -1.000
;  < ENV    2
FINI;